home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / C and C++ / Libraries / excel 2.2 serial library ƒ / Serial Library Source Code / serial.close.dll.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-07-27  |  1.4 KB  |  68 lines  |  [TEXT/MPS ]
  1. /***********************************************************************/
  2. /*    
  3. /*    serial.close.dll.c
  4. /*    by Atul Butte
  5. /*    Copyright © 1989 by Microsoft Corporation
  6. /*    All Rights Reserved
  7. /*
  8. /*    version 1.0
  9. /*    
  10. /*    
  11. /*    This CALL/REGISTER closes a serial port.
  12. /*    
  13. /*    Excel usage:
  14. /*    
  15. /*    = Register( "serial library", "serial.close", "IH" )
  16. /*    = Call( ref, portNumber )
  17. /*    
  18. /*    where
  19. /*        portNumber        = number of port (1 = modem, 2 = printer)
  20. /*    
  21. /***********************************************************************/
  22.  
  23. /***********************************************************************/
  24. /*
  25. /*    D E F I N E S
  26. /*
  27. /***********************************************************************/
  28.  
  29. #define ROUTINE_NAME    "serial.close"
  30. #define hNIL 0L
  31. #define pNIL 0L
  32.  
  33. /***********************************************************************/
  34. /*
  35. /*    I N C L U D E S
  36. /*
  37. /***********************************************************************/
  38.  
  39. #include "serial.h"
  40. #include "error.h"
  41.  
  42. /***********************************************************************/
  43. /*
  44. /*    main
  45. /*
  46. /***********************************************************************/
  47.  
  48. pascal short main( port )
  49.  
  50.     unsigned short            port;                    /* serial port to use */
  51. {
  52.     RememberA0( );
  53.     SetUpA4( );
  54.     
  55.     if( port == 1 ) {
  56.         port = sPortA;
  57.     } else if( port == 2 ) {
  58.         port = sPortB;
  59.     } else {
  60.         display_error( "Illegal port number." );
  61.         RestoreA4( );
  62.         return( errInvalidPort );
  63.     }
  64.     
  65.     RamSDClose( port );
  66.     RestoreA4( );
  67.     return( noErr );
  68. }